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MAILBX BulLO <MAIlB8X» FILES In USER'S ACC8UNTS 



NAME? 



MAILBX 



PURPSSri INF8RM USERS 8F SYSTEM ACTI8N TAKEN WITH REGARD T8 

FILE MAINTENANCE. THE MESSAGE GENERALLY CONSISTS &F 
THE REAS9N A SYSTEM 8ACKUP FAIUED 8R A C&MPLET18N 
MESSAGE C8NCERNING S8METHING THE US£R HAS REQUESTED. 

DESCRIPTI8NJ THE MAILBX R8UTIN| F8RMATS A MESSAGE C8NTAINING 
THE CURRENT DATE AND TIM£ AND THE ACC8UNT NAM£ WHiGH 
IS REQUESTING THE MAIlBSX BE BUIlTI THE REST 8F THfc 
MESSAGE IS PART 8F THE INPUTt THE MESSAGE IS WRITTEN 
INT8 THE SPECIFIED ACC8UNT BY AODING A ReC8RD T8 aN 
EXISTING »MAILB8X» FILE IN THE ACC»UNT 8R INT8 A NfcW 
8NE IF N8NE CURRENTLY EXISTSt THE MESSAGE IS ALS8 
8PTI8NALLY PRINTED 8N THE LINE PRINTER. 
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SYSTEM 
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SYSTEM 
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REF 


JULIAN 



DCB USED TO CREATE AND WRITE THE 
MAILB6X FILE IN A USER'S ACCOUNT 
ENTRY POINT TO BYPASS MlTlME CAL 
(THE TIME HASNtT CHANGED SINCE LAST 
CALL T8 MAILB6X) 

DEF F0R MAILBX PROCEDURE PATCHING 
MAIN ENTRY POINT TO MAILBOX ROUTINE 
DEF FBR MAILBX DATA PATCHING 
LOCATION WHICH GOVERNS LINE PRINTER 

ACTI0N1 i> PRINT* NBN»0 i> NOT 

JJT LOCATION OF «UNNINQ AQCOyNT 
USED T8 LOCATE MAILBOX FILE 
CONVERTS MITIME TIME INTO JULIAN T I Ml 
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D3C2D6E7 
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08000002 
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(KEYED INDIRECT) j <KEYMj7)i J 

(INOUTJj(SAVE)jI 

( ERR# WL ? ERR ) 4 ( ABNj ML UBN J 
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000QO001 
OOlOfJOOO A 



1*000000 N 
C1000009 A 
00000043 07 
0000OO46 07 
00000004 A 
0*010202 A 
7*E2E8E2 A 
40404040 A 



00000050 
00036 
00038 00000000 

EXT 

00000040 



MAILO 
ENVIR 



MSQBUF 
9PENFPT 



IN8UT 
ACCOUNT 

MAXSIZ 

KEYBUF 

N6PRINT 

SENDER 

BUNK 



CSECT 
DATA 




•♦1 



GEN*l6*U 16*0 



RES 
RES 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
TEXT 

FQU 

RES 

DATA 

EQU 

EQU 
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28 

X?14QO00OO**F:MAlL 

XtC1000009t 

ml1err err return 
mliabn abn return 

4 IN8UT USUALj^UT S8mETImES 

Xf20l0202t ACC6UNT WHERE MAILBBX 
tlSYS t IS T» BE BUILTt 
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IF N»NZER©# Nd LP 8UTPUT 
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107 
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113 
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116 
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#D* 
*D* 
«D# 

#0# 
♦0« 
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#D# 
#D* 
#D« 
#D# 
#D# 
#D* 
*D# 

*D* 
#0* 
#0# 
#D« 
*D# 

»D* 
#D# 
♦D# 
#0# 
#D# 
•D* 
#0* 
#D* 
#D« 
*D# 
#D# 
#P# 

#D« 
*D« 
#D# 
#D# 

#D* 



NAME I 

fntry: 



MAILBOX 

FMAILBX 



REQISTrRSI ALL ARE PRESERVED 



CALLS 



LIjSRs 
BAL'SR* 



FPT 
MAILBOX 



INPUT! FPT f> ADDRESS OF TEXTC MESSAGE (NO INDIRECT) 
*PT*1 ■> ADDRESS 6F RECIPIENT ACCOUNT NaM£ 
NOPRINT « i> PRINT MESSAGE ON LINE PRINTER 
• 1 »> SUPPRESS LINE PRINTER LISTING 

NOPRINT IS A DEF f ED WORD IN MAILP 
D4 (R15) ■ ■> SUPPRESS FlLE BUYING 

» 1 •> BUILD MAILBOX FILE IN RECIPIENT ACCT 

INTERFACE! JULIAN 

ENVIRONMENT! MAPPED, SLAVE OR MASTER, CO PRIVILEGE 

DESCRIPTION! ALL REGISTERS ARE SAVED UP©N ENTRY IN ThE STALK 
IENVIRU AN M!TIME CAL IS THEN ISSUED TO OBTAIN THfc 
CURRENT TIME AND JULIAN IS CALLED TO CONVERT THIS 
INTO A JULIAN FORMATTED DATE ( »OOY r ODDD I j 'MHMMOOOO 1 > • 
THIS DATE IS USED AS A KEY TO WRIT* THE MAILBOX FiLEJ 
IF ENTRY IS AT FMAILBX, THE PREVIOUS KEY IS INCRE- 
MENTED TO MAKE IT UNIQUE FOR EACH WRITEt 
THE MESSAGE IS THEN PUT TOGETHER! JT HAS THE FORM* 
tHHJMM MON DD BY BUILDER? FOLLOWED BY TEXT MESSAGE 
INPUT TO MAILBOX (FPT ABOVE) i »BUlLD£R f IS THE 
NAME OF ThE ACCOUNT BUILDING THE MAILBOX, USUALLY 
ISYSi THE »BUILDER» FOR THE LINE PRINTER MESSAGE IS 
THE INPUT RECIPIENT ACCOUNT (FPT*1 ABOVE) • THUS, 
TWO DIFFERENT MESSAGES ARE BUILTi (IF THE INPUT 
MESSAGE IS TOO LONG* I.E. > THAN 80 CHARACTERS, THfc 

ROUTINE DOES NOT BUILD A FILE IN THE USERtS ACCOUNT.) 
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181 
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130 



131 
132 
133 
13* 
135 
136 
137 
138 
139 
1*0 
1*1 
1*2 
1*3 
1** 
1*5 
1*6 
1*7 
1*8 
1*9 
150 
151 
152 
153 



07 00000 
07 
07 
07 00000 
07 00001 
07 00002 
02 00000 
07 00003 
07 0000* 
07 00005 
07 00006 
07 00007 
07 00008 
07 00009 
07 

07 0000* 
07 0000B 

07 OOOOC 
07 
07 OOOOD 
07 OOOOE 
07 OOOOF 
07 00010 
07 00011 
07 00012 
07 00013 
07 OOOH 
07 00015 
07 00016 
07 00017 



00000 

00000 

0g20OO0Q A 
0*000000 06 

0*800000 02 
10000013 06 
28A00013 06 

6*800000 x 
22600007 A 

75600008 A 
35800036 Ofc 
35900037 06 
68000000 
00C0 A 

33100037 06 
08200000 A 
0*000000 06 
0000» 

38AOOOOC 06 
33BOO00D 06 
33*0005C 
35*00016 06 
38*00000 X 
35*00017 06 
38*00001 N 
35*00018 06 
58*onOOA A 
F870OO0* A 
21700050 A 
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#D« 
*D» 
«D* 
#D* 
#D# 
#D# 

MAIL 
MAILBOX 



PMAILBX 



CMAILBX 



CSECT 

rou 

EOU 
LCI 

PSMjRo 
MITIME 

Ll#SR3 

BALJSR4 

LliR6 

STB#R6 

STW#$Ri 

STWjSrp 

B 

EOU 

MTW#i 

LCI 

PSMiRO 

EQU 

LW#SR3 

LW#SR* 

LW#R* 

STWjR* 

LWjR* 

STW1R4 

LW#R* 

STWjR* 

LW#R* 
LB#R7 
CI#R7 



7 

IF D* (R|GISTER 15) i 0# THE MAILBOX FILE IS NOT BUILT 

OTHERWISE* IT IS OPENED IN THE RECIPIENTS ACCOUNT 

AND THE APPROPRIATE MESSAGE ADDED TO THE FjLEt 

(IF THE FILE DOES NOT ALREADY EXIST, A NEW ONE IS bUIL 

IF NOPRINT ■ Os THE LINE PRINTER MESSAGE IS PRINTED 

OTHERWISE* THE ROUTINE EXITS AFTER CLOSING 

THE FlMAIL DCB (IF IT WAS OPEN) AND PULLING ALL RE^St 
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ENVIR 

MSGBUF*! 



MSQBUF+1 

JULIAN 

7 

SRI 

KEYBUF 

KEYBUF*1 

CMAILBX 

* 

KEYBUF*1 



ENVIR 

• 

ENVIR+12 

ENVIR*13 

L(C» BY t) 

MSGBUF** 

SENDER 

MSGBUF+5 

SENDER*1 

MSGBUF*6 

•6R3 

♦R* 

MAXSIZ 



7 BYTES FOR KEY 
TWO WORD DATE/TIME 



IS KEY. SR1jS«2 



ENTRY FOR NO TIME UPDATE 
MAKE KEY UNIQUE 



LOCATION OF MSG TO R* 

BYTE IS BYTE COUNT OF MSG 
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157 07 OOOlB 
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159 07 0001D 
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161 07 0001? 

16? 07 00020 

163 07 00021 

164 07 Q0022 

165 07 00023 

166 07 00024 
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168 07 00086 
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170 07 00028 
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172 07 0002A 

173 07 OOOtB 

174 07 
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176 07 0002D 

177 07 0002E 
178 

1 79 

180 07 0002F 
02 00001 

02 00003 

0? 00004 
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02 00006 
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181 07 

182 07 00030 

183 07 00031 
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6*200030 
20700001 A 
2860DC18 A 
3^60nO07 A 
2540O002 A 
2fc50O0l9 06 

2S500002 A 
78700005 A 
61400000 A 
2S50004Q A 
75500019 06 
2UA00001 A 
B840000A A 
8850O004 A 
^6500034 06 

8U400001 A 
B870O004 A 

46700035 06 
38F0n011 06 

6*300030 
0008^ 

22E00004 A 
35EQ0032 06 
0*10002E 06 
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UOOOOOO N 
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00000045 07 
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80000006 A 
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00030 EXIT 

33000038 06 
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MSG TOO LONG 
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MSGBUF+7 
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MSGBUF*7 
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#SR3 

*R4 

ACCBUNT 

4 


6 WORD FIXED PREFIX 

ADD MSG LENGTH FOR R£CfiRD LN6 

BYTE ADDRESS 

BYTE ADDRESS 

BYTE IB CHARACTER COUNT 


LOCATE RECIPIENT 
PICK UP ACCT POINTER 
FIRST WORD OF ACCT 
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*R4 
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EN)VlR*l7 

EXIT 
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WAS MAILBOX ADDITION REQUESTED 
NO 
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GPENFPT 
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<ERR#MLIERR> 

(KEY#KEYBUF) 


MSGBUF*i)i<S!ZE##R6)jJ 

jUBNaMLUBNWJ 
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BNEZ 
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3S40O018 


06 




STW#4 


MSGBUF*6 




1 ©8 


07 


00036 


3«4QO0SD 
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■ i t 




189 


07 


00037 


3^400012 


06 




STWjR* 


MSQ8UF 
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5*000000 
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!S DCB 8PEN 
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18000000 

iooooooo 


02 
N 
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XITt 
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199 


07 
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02200000 
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3*500034 
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ACC6UNT 




201 
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3^700035 
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STW#R7 


ACCBUNim 
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OAOOOOOO 
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PUM,RO 


ENVIR 
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E*00O0OB 


A 
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•SR4 
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0*000030 
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SIP 
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1 MINUTE SLEEP 
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ERR&R AND A 


.BN8RMAL RETURNS 
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MLIERR 


PQU 
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210 


07 00045 


6*000030 
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EXIT 
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07 


00046 




MLIABN 


EQU 
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07 00046 


724QOOOA 
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LS#R4 


SR3 




213 


07 00047 


214Q0003 


A 






CI*R4 
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N8N EXISTENT FILE 


21* 


07 00048 


6*300040 








BNE 


LPl 
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07 00049 


82^00002 


A 






LI#D3 


2 




816 


07 0004A 


3SEQ0032 


06 






STW#D3 


IN8UT 


BPEN FILE 8UTPUT 


217 


07 00048 


o;iono2E 


06 






CALl^l 


BPENFPT 




R 18 


07 0004C 


6«0OOG2F 








B 


WRIT 




219 


0? 0004D 


2X400016 


A 


LPl 




CI*R4 


X»16t 


KEY ALREADY EXISTS 


220 


07 0004E 


$*30005l 








BNE 


LP2 




221 


07 0004F 


66100037 


06 






AWMjRi 


KEVBUF*1 




222 


07 00050 


6800OQ2F 
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WRIT 
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07 00051 


2X400014 


A 


LPi 




CI*R4 


X»14» 


MAYBE BUSY 


224 


07 00058 


6*300030 








BNE 


EXIT 




225 


07 00053 


22100001 


A 






Ll#Rl 


1 




cc6 


07 00054 


7K42000A 


A 






LB,R* 


SR3*Rt 




227 


07 00055 


2540007F 


A 






SUSiR4 


•1 


7 BIT SUB CBDE 


228 


07 00056 


21400001 


A 






CI*R4 


1 




229 


07 00057 


6*3ooo30 








BNE 


EXIT 


NBT BUSY 


230 


07 00058 


0**00044 








CALljg 


SLP 


SLEEP A MINUTE 


231 


07 00059 


20200001 


A 






Al#R2 


1 




232 


07 0005A 


6*200030 








BQZ 


EXIT 
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07 0005B 


6»00002C 








B 


8PEN 




234 


07 0005C 
07 0005D 


4UC2F840 
40404040 


A 
A 






END 
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SCCTI8N SUMMARY ol 00000 


PT 





02 0O0OE PT 03 


00000 PT 1 04 00000 






05 00024 


pj 
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06 00039 PT 07 


0005E PT 1 
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PT 
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* SYMBOL VALUES 

ACC0UNT/Q6 OOC3* 

Dl/OOOOOOOC 

ENVTR/06 OOOOO 

KEYBUF/06 00036 

MA*SU/00000030 

NMASK/fUNC 

Rl/OOOOOOOi 

R5/OOOOOOO5 

SU»/07 0004* 

SR4/0000000* 

* EXTERNAL DEFINITIONS 

FIMAIL/OS OOOOO 
MAILD/06 OOOOO 

* PRIMARY REFERENCES 

JUCCN SULTAN 

* NO SECONDARY REFERENCE** 

* NO UNDEFINED SYMBOLS 

* ERR&R SEVERITY LEVEWl n 

* NO ERROR LINES 
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BLANK/00Q00O<K) 
D2/O00O0OOD 
EXIT/07 00030 
LPl/07 0004D 
MLIA9N/07 00046 
OPEN/07 0003C 
RS/00000002 

R6/00000006 
SR1/00Q0000* 

WRIT/07 0008F 



FMAILBX/07 
NOPRINT/06 

MILL 



OOOOA 
00038 



CLBSE/07 0003E 
D3/OO000OOE 
EXIT05/07 0003B 
LF2/07 00051 
MLiERR/07 00045 
OPENFPT/06 0002E 
R3/Q0000003 
R7/00000007 
SR2/00000009 
XIT1/07 0003F 

MAIL/07 OOOOO 



CMAIWBX/07 OOOOD 

D4/OQOOOOOF 

IN0UT/O6 00032 

MASK/FUNC 

MSGBUF/06 00012 

RO/OOOOOOOO 

R4/00OQOO04 

SENDER/EXT 

SR3/0O0000OA 



MAlL»0X/07 OOOOO 



